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1er$ep-1986 12:59:98 ECTent esnediierimén.050; 1 q 
' 

: 


3 1 1 MODULE LIBSTIMER ( ' RTL Timing Facili 

: § 3h ww = "1-011" File: CBT IMER. BS” EDIT:SSA0030 

$ = 

Ps ane gesin | 

: § B98 : leeaenneeneeeaneereeeneanecenetercreererreernetreeenetnenenntnntnneneetnetes 

3 '® * 

; 8 008 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 

s o 009 1 !* DIGITAL EQUIPMENT €ORPORATION, MAYNARD, MASSACHUSETTS. * 

; + Boi $ : i: ALL RIGHTS RESERVED. * 

P) 3 * 

; 1 pots 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 

$ 1 01 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 

3 14 0014 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 

; 15 0015 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY a 

$ 16 0016 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 

: i SEA : os TRANSFERRED. * 

Py % 

3 19 0019 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

: 20 0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIFMENT * 

: 3 Bb 1 : » CORPORATION. % 

° ; 7 

; 00 § 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 

: 24 0024 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 

; $ 0025 1 !* ‘ 

3 6 Base 1 Ie * 

; i Bo56 : J PAECSRSSRAMAAHAAANSRN ERSTE ROSA SNT ORES ORIN OREN INNS OR NANO N ONTO TOT ONO HTaT 

> 29 0029 1 

; 0 0030 1 !++ , 

: 1 $9 : } FACILITY: Run Time Library - User Callable 

; 38 0035 : ABSTRACT: 

.7 = $088 1! This module implements the RTL Timing Facility, replacing 

: -_ 0036 1! subroutines TIMRB an E. It consists of four routines: 

; * Ope : LIBSINIT_TIMER, LIBSSHOW_TIMER, LIBSSTAT_TIMER and LIBSFREE_TIMER. 

; 24 484 ! ; ENVIRONMENT: User mode, can be made AST reentrant. 

: 41 9041 ; AUTHOR: Steven B. Lionel, CREATION DATE: 01-Dec-1978 

; rk 0043 1 | MODIFIED BY: | 

3 44 8 44 1! 

; 645 45 1! ot 01-Dec-1978 : VERSION 01 

i 48 0046 1 | 1-061 = Original. SBL 01-Dec-1978 

; 6 047 1! 1-008 - Fix error in calculating CPU_HOURS. SBL 02-Jan-1979 

: 648 ps8 1 ! 1-003 = Correct some typos in comments and rearrange the ngdule 

; «49 049 1! header to conform to the other RTL nodules. JBS 30-JUL-1979 

; 050 1! 1-906 - Fix some more comments. SBL 6-August-1979 | 

; a 51 1 ! 1-005 = FAO_STRING_O was missing a descriptor! SBL 29-Oct-1979 

; 2¢ 03¢ 1 | 1-006 - Chatged thé JPIPARAMS to be read only by putting them in | 

i 53 1! the _LIBSCODE psect. Alsg added fol field and updated 

3 2¢ 054 1! the Copyright date. LB rar aM 1 

3 5 055 1 ! 1-007 - Make text for SHOW_TIMER of all values shorter, so that it won't | 

3 28 538 1! tend to overflow an 80-column screen. Remove the access test 

3 57 1! on the handle block so that users who set watchpoints won't get | 
} 
| 
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16-Sep-1984 01:18:20 — VAX=11 BLiss-32 v4. 742 188 
14-Sep-1984 CTARTL SREWLIGTINER 039; (1) 


to contain only binary zeroes, move INITIALIZED flag from LOCAL 
SA writset | be move test of flag to carrant branch of IF statement. 
-AUg=- 


! unnecess arity p“pset. SBL 2-Nov-1981 

' 1-008 - Use t L1B8$ GET_¢ F 5° get 133; event flag number for the call to 

! GETJPI. SBL 30-Nov-1 

' 1-009 - Use veer eiy. to ensure synchronous 8 eration. DG 26-0ct-1983 

! 1-010 = Conditionalize setting of LSTORAGECO] to eliminate non-zero 

mbt gm pul 988 in @ copy-on-ref page, a performance imporvement. 
| 1-011 = Fix 1-010. Change INITIAL attribute in declaration of STORAGE 

i 


! <BLF /PAGE> 


3 
LURSTMER 1$-sep-1964 01:18:29 yAK=I1 BLisg=32 v4. 0-742 | Page 3 


| 
| 
3 ie : | 
4 7 ' SWITCHES: 
BOAT | 
ag 0077 SWITCHES ADDRESSING _MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 
79 078 ’ 
80 9079 ! LINKAGES: 
81 0080 ; 
8 0081 ' NONE 
8 Bo58 : 
4 O08 ! TABLE OF CONTENTS: 
5 4 : 
86 085 
87 06386 FORWARD ROUTINE 
88 0087 LIBSINIT_TIMER, ! Initialize timing statistics 
89 0088 LIBSSHOW_TIMER, ' Output statistics 
90 0089 LIBSSTAT_TIMER, ! Return statistic values 
91 0099 LIBSFREE_TIMER, ! Dealiocate statistics storage block 
4 sad LIBSSGETIP!; ! Local routine to acquire statistics from system 
94 $098 ! 
95 0094 ! INCLUDE FILES: 
4 94 : 
38 0037 REQUIRE "RTLIN:RTLPSECT'; ! DECLARE_PSECTS macro 


019 LIBRARY ‘RTLSTARLE'; 


LISTSIZE = N_OF_VALUES*3 - 2; ! Length of JPI argument List in longwords 
DECLARE_PSECTS (LIB); 


OWN STORAGE: 


9 

9 : 

3 EQUATED SYMBOLS: 

3 ! 

9 LITERAL 

0 N_OF VALUES = 5, ' 

: BCOCRSIZE = (N_OF_VALUES + 2)*ZUPVAL, : Length of sturage block in bytes 
0 

0 


Define psects 


OWN 
STORAGE : VECTOR CN_OF_VALUES + 2) 
INITIAL (BYTE (CONG(O), REP N_OF_VALUES OF LONG(O), LONG (0))), 
INITIALIZED : JWITIAL(O); © ! indicates whether STORAGE initialized 


'¢ 
! JPIPARAMS used to reside in the above OWN storage section, but in order 


' to make it read-only, it has been added into the _LIBSCODE psect, which 


1 
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: is already set up as read-only. 
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Number of values desired 
| 

- | 
JPIPARAMS : VECTOR CLISTSIZE] PSECT (_LIBSCODE) INITIAL (WORD (ZUPVAL), ! Buffer Length | 

| 

| 


» 9 | 
IBSTIMER 16-Sep-1984 01:18: AX-11 Bliss-32 V4.0-74 Page 4 
ett 1oxgeP =} 38e 03:48:98 ATARI SRETLISTIMER 03951 ° (2) | 
-- % . 9 WORD (JPIS_PAGEFLTS), ! JPI code 
s 151 4 1 LONG (0), ' Buffer address 
et ¢ ™/ LONG (0) ' Unused here 
: 4 6 1 WORD (ZUPVAL), i Repeat for other 
3s 3 F WORD Sag CPUTIM), ' goges 
; «135 8 1 LONG (0), CONG (0), WORD (XUPVAL), WORD at BUFIO), LONG (0), LONG (0), WORD (ZUPVAL), WORD ( 
i 9 JPIS"DIRIO), LONG (0), LONG (6), LONG (0)3; ! Terminate List 
; 138 ie 
; 139 ¢ 1 ! EXTERNAL REFERENCES: 
; 140 1! 
: 6161 4 1 
; 136 5 1 ——, ROUTINE 
; 14 § 1 SYSSFAO, ' Formats ASCII output 
> 144 1 LIBSPUT_OUTPUT, ' Sends string to SYSSOUTPUT 
3; «6145 . 1 LIBSGET_EF ' Get event flag number 
: 146 1 LIBSFREE_EF, ' Free event flag number 
: 14 40 1 LIBSFREE VM, ' Frees virtual memory 
: 1s3 8 ] ! LIBSGET_{M; ! Gets virtual memory 
s 1580 0 ts 1 EXTERNAL LITERAL 
3 123 8 rf \ LIBS_INVARG; ! Invalid argument error condition 
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GLOBAL ROUTINE LIBSINIT_TIMER ( 

~ HANDLE 
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; FUNCTIONAL DESCRIPTION: 


This routine gets from the operating system the current 
values of specified times and counts, and stores them 

for future use by other RTL timer routines. Depending 

on the optional argument, ‘‘handle’’, the values are stored 
ae oe three places. See FORMAL PARAMETERS for more 

e . 


CALLING SEQUENCE: 
status.wlc.v = LIBSINIT_TIMER (Chandle.ml]) 
FORMAL PARAMETERS: 


handle = Optional. Determines where the values 
of times and counts will be stored. 


PAEAPEQEMAMAMNANMVIVINT ES £ 


If missing, they will be stored in OWN 
storage. this call is not 
reentrant. 


If zero, a block of dynamic — storage 
will be allocated by a call to LIBSGET_VM, 
the values placed in that block and the 
address of the block returned in ‘handle’. 
This method is AST reentrant. 


If non zero, it is considered to be the 
address of a storey block rer ‘evely 
allocated by a call to LIBSINIT_TIMER. If 
so, the block is reused, and fresh times 


and counts are stored in it. 
IMPLICIT INPUTS: 
If “‘handle"’ is non-zero, the block of storage it refers to is 
assumed to have been initialized by a previous call to 
LIBSINIT_TIMER. 
IMPLICIT OUTPUTS: 


Upon exit, the block of storage refered to by ‘‘handle’’ will 
contain the times and counts returned by a call to SYSS$GETJPI. 


ROUTINE VALUE: 
COMPLETION CODES: 


aaa a a a kk a ak a a et a a “a a a a as td 4 a 
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$S$_NORMAL - Successful completion 
LIBS_INVARG - savas te argument to routine. ‘‘handle’’ 
S$ non-zero and the block it refers to 
alized on a previous call 
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IF (..HANDLE EQL 0) 
THEN 


SERE 


DWONAOULS WOO 


sane ! Allocate dynamic storage 
STATUS = LIBSGET_VM (ZREF (BLOCKSIZE), HANDLE); 
IF ( NOT .STATUS) THEN RETURN (.STATUS); 

a LSTORAGE = ..HANDLE; 

! Set first Lonpuord of storage block to ‘TIMR'. This is a quick 


! consistency check to protect against being passed a block not 
: previously initialized here. 
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1 
; 211 > 2 to LIGSIN}T_TIRER. 
; \§ Be LIBSINSVIRMEM = ‘‘handle’’ is present and non-zero but there 
; 2 . ee is insufficient virtual memory available 
; 14 1! to allocate a —- block. 
; 215 8 1! LIBSBADBLOSIZ = This indicates a co ing error in the RTL. 
; 18 $8 : \This error should NEVER happen! \ 
3 18 \9 : SIDE EFFECTS: 
3 0 \§ 1! If “‘handle’’ is present, and zero, a block of dynamic memory 
: 1 Fe : is allocated. 
eo ie 
3 ? 8 7 BEGIN 
g 7 0 3 LOCAL 
; 8 0320 LSTORAGE : REF VECTOR CN_OF_VALUES + 2], ! Points to storage block 
3 9 83 1 STATUS; ! Return status from functions 
3 1 03 ‘ BUILTIN 
3 ¢ 0324 NULLPARAMETER; 
3 5 $3 $ ! If “handle’’ was not specified, then use OWN atorege. 
3 2s 0328 : Else either allocate some or reuse a block, depending on the 
: ; 0329 ' value of “‘handle' 
: $5 bay § * 
3 4 03 § IF (NULLPARAMETER (1)) 
; 24 03 THEN 
s 2 0334 BEGIN 
: 24 0335 LSTORAGE = STORAGE; ! Use OWN storage 
> 26 0336 4 IF ( NOT .INITIALIZED) 
; @ 8 ; 3 H 
3s 26 338 4 BEGIN 
: 26 the 4 LSTORAGE CO) = ZASCII‘TIMR'; 
$ : 8 re 4 pol eene = 1 
; 0 rt: j END 
; 4 ELSE 
; @ 4 BEGIN 
: 25 
3; 2 : 
; 4 
3 5 4 
3 5 4 
3 6 4 
: 26 ? 
3 & 
s 4 
3 4 
3 4 
3 4 
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IBSTIMER 18-se S$ep-1984 AX-11 Bliss-32 V4.0-74 Pa 7 
ett ~ge07} 387 93: if 39 LIBRTL.SRCJILIBTIMER. 63351 wie (3) 
; 0 4 LSTORAGE (CO) = ZASCII‘TIMR'; 

: $ 1 END; 
3 f es LSTORAGE = ..HANDLE; ! Reuse previous block 
3 {? 65 IF (.LSTORAGE CO] NEQU ZASCII'TIMR') THEN RETURN (LIBS_INVARG); ! Consistency check 
; 9 ef END; 
: 27 e STATUS = L1SSsecT IPs (LSTORAGE (1]); ! Get times/counts and store in storage block 1-5 
$ 78 0 RETURN (.STATUS); 
; e279 71 END; ! End of routine LIBSINIT_TIMER 
-TITLE LIBSTIMER 
-IDENT \1-011\ 
-PSECT _LIBSDATA,NOEXE, PIC,2 
00000000 00000 STORAGE:.LONG 0 F 
000000004 00004 -LONG OC5) 3 
4444 Bete -LONG 0 3 
0000000 O001C INITIALIZED: 
-LONG 0 3 
-PSECT _LIBSCODE,NOWRT, SHR, PIC,2 
0004 00000 JPIPARAMS: 
» WORD 4 $ 
040A 00002 -WORD 1034 3 
00000000 00004 -LONG QO ; 
00000000 Bo boe -LONG 0O 3 
0004 0000C eWORD 4 ; 
0407 sais «WORD 1031 $ 
00000000 49 -LONG 0 3 
00000000 00014 -LONG 0 2 
004 ganié -WORD 4 3 
40C OOO1A -WORD 1036 ; 
0008 O08 ities -LONG 0 3 
0000000 0020 -LONG 0 3 
tn 00024 ~ WORD 4 é 
ob8 000 $ WORD 1035 3 
$690000 009 tone 
$0000000 90086 tone : 
EXTRN SYSSFAQ, LIBSPUT OUTPUT | 
EXTRN LIBSGET EF, LIBSFREE_E 
EXTRN LIBSFREE_VM, L BScET-VM 
EXTRN LIBS_INVA 
001C 000 -ENTRY LIBSINIT_TIMER, Save R2,R3,R4 : 0246 
54 00000000' FF 9 909 HOVAB INITIALIZED, R4 ; 
4 § 0 SUBL #4, SP 3 
6¢ 99¢ TSTB. = (AP) : 0332 
1 f BEQL 1$ 3 
04 AC D 1 TSTL 4 (AP) ; 


H ba 
IBSTIMER 6-Sep AX-11 Bliss-32 V4.0-74 Page 8 
ett green TFRs P3:48:89 | Heat Ob hes Fg veel 285. 9° 63) 
13 12 000 2$ 
52 E46 Aa 9 1$ MOVAB STORAGE L STORAGE 
4 4 € BLBS INITIA aul D. 
62 52404954 BF D MOVL #1 8075 6 +e TORAGE) 
64 1 D0 #1, INITIA Ptzeb 
9 
53 04 aC D 
63 D5 00 TSTL (3) 
1p 12 000 NEQ 3 
53 DD 000 PUSHL R 0350 
04 AE 1¢ DO 000 VL. #28, 4(SP) 
06 AE OF 09 PUSHAB 4(SP) 
000000006 00 Q re CALLS #2, LIBS bn 
E9 000 LBC STATUS, 0352 
: 00 00 MOVL R3) ts TORAG 0354 
52404954 8F DO 000 MOVL 13867 6756, F STORAGE) 0 69 
63 D0 00040 3$ MOVL {Ras LSTORAGE 036 
52404954 &F 62 D1 000 CMPL (LSTORAGE), #1380796756 0365 
08 13 000 BEQL = 4 
50 000000006 8F v6 00 MOVL § #LIBS_INVARG, RO 
04 A2 9F 00061 4$: PUSHAB 4(LSTORAGE) 0369 
0000v CF 01 FB 00064 CALLS #1, LIBSSGETUPI 
04 00069 5$: RET 0371 


; Routine Size: 106 bytes, Routine Base: _LIBSCODE + 0034 
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GLOBAL ROUTINE LIBSSHOW_TIMER (HANDLE, 


ACTION 
USERARG 
= 


'¢ 


'+4 
! FUNCTIONAL DESCRIPTION: 


LIBSSHOW_TIMER is used to obtain the accumulated times/counts 
since the last time LIBSINIT_TIMER was called. In the default 
mode, with neither CODE nor sii Speest ies in the call, the 
a 


routine will output to SYSSOUTPU ne giving the following 
five items of information: 


SED = hhhh:mm:ss.cc - Elapsed real time 
U = hhhh:mm:ss.cc - Elapsed CPU time - 
BUFIO = nnnn - Count of buffered 1/0 operations 
pitze = nnnn - Count of direct I/0 operations 


KAR AVLS LW VS AR OOo VO ROM 
ODOOOO OO OOWDOWDOODODO NINN 


DOOQOOCOCCSCOCOC CSCO OCOCOOOOCOCOCOOOOCOOOOoOO 
WN — SO OONANE WN (OO ONAYL EWN OOOO Ww 


; LTS = nanan Count of pagefaults 
3 
3 Spt tones ty. only one of the five statistics can be output to 
; 3 SYSSOUTPUT and/or the Line of information can be passed to a 
3 user-specified ‘‘action routine’, for processing different from 
3 3 the default. 
4 39 
08 39 
$1) re CALLING SEQUENCE: 
11 40 status.wic.v = LIBSSHOW_TIMER (CCCChandle.rl.rJ, code.rl.riJ, 
\¢ 040 action.flc.rpJ], userarg.rl.vJ) 
1 0404 
14 0405 
F Bee FORMAL PARAMETERS: 
17 0408 handle =- (Optional) If specified, must be the same value as 
18 9 returned by a previous call to LIBSINIT_TIMER. 
19 If omitted, the routine'’s OWN storage will be used. 
2 If handle is omitted, and LIBSINIT_TIMER has not previously 


been called, Elapsed time will show the actual time-of-day > 
and the remaining values will be those accumulated since process login. 


code - (Optional) Specifies the particular statistic desired. 
I ven, it must be one of the te} lowing values: 
L B$K_TMRELP = 1 = Elapsed time 
LIBSK_TMRCPU = § = CPU time 
LIBSK_TMRBUF = 5 = Buffered 1/0 
att TMRDIR = 4 = Direct 1/0 


action 
userarg - (Optional) These two parameters allow the user to direct 
the output, of LIBSSHOW_ TIMER somewhere other than SYSSOUTPUT. 
If ‘action’ 
procedure to ca 
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is given Tt is the address of a function 
lL. fhe arguments to this function are 


apeyinen eSeertage 90:18:82 YMGIT Shag 
described es The function should return either 


a success of failure condition value, which will be 
returned as the — + of LIBSSHOW_TIMER. 


CALLING SEQUENCE OF ACTION ROUTINE: 
status.wic.v = (action) (out_string.rt.ds C, userarg.rl.vJ) 
out_string -A Sover'ipter of a fixed length ei. 
onta panos the statistics desire : 
ed 


s format exactl x as it would be i 
qutput t to SYSSOUTPU 


SF EAN 
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1! 
1! 
1! 
1! 
1! 
1! 
1! 
1! 
1! 
1! 
1! 
1! 
2 : lank. 
44 1! userarg - If “userarg’’ is passed to LIBSSHOW_TIMER, 
45 1! it is passed edirectly. on to the action 
re 1! routine. e that this is passed BY VALUE 
rh ; both to LIBSSHOW. TIMER and to the action routine. 
49 1! 
39 : } IMPLICIT INPUTS: 
26 1! It is assumed that LIBSINIT TIMER has previously been called, and 
55 1! that the results of that calla are stored in either OWN storage or 
2 : a block pointed to by ‘‘handle’ 
28 1 ! IMPLICIT OUTPUTS: 
o (6h 
58 1! NONE 
59 1! 
0460 1 ! ROUTINE VALUE: 
Ree) : } COMPLETION CODES: 
465 1! SS$_NORMAL - Successful completion. 
0464 1! LIBS_INVARG - Invalid ar ~~ ee This can be caused by an 
0465 1! invalid value for andle' 
pees 1! Other codes as may be returned by L1B$PUT OUTPUT or the user's 
0467 1! action routine. 
0468 1! 
0469 1 ! SIDE EFFECTS: 
0470 1! 
471 1! NONE 
472 1! 
473 1 !e- 
474 1 
475 BEGIN 
47 
7 LTIN 
4 ACTUALCOUNT 
47 NULLPARAME TER, 
480 SUBM, 
1 ASHQ, 
§ EDIV; 
4 
LOCAL f 
485 STATUS ' Returned condition values 
04 TEMPCODE, i Local value of CODE 


or’ 
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IBSTIMER Sep-1984 AX=-11 Bliss-32 V4.0 Page 1 1B! 
op 15-Se0-1984 9}: 8: a LIBRTL.SRCILIBTIMER. “hi 31 . ee 1-0 
; 487 LSTORAGE, ! Will contain address of storage block ej 
: 8 TSTORAGE : VECTOR CN_OF eYALUES +1), | Gets urrent t mes/counts 4 
: a FAO_DESC: BLOCK C8 ByT i Deser ptor for FAO tri ng ; 
3 OUT-DESC : BLOCK (8 ried, i Output string descriptor ; 
; 91 OUT“STRING : BLOCK f1 0, BYTE], i Output strin : 
: tot % CPU“HOURS : BLOCK (ed, i Elapsed CPU hours ; 
; 40¢ 9 CPU-MINUTES, i Elapsed CPU minutes a 4 
; 94 CPU- SECONDS, i Elapsed CPU seconds ; f 
; $08 95 CPU-MILLS; i Elapsed CPU 10 mills : 
; 406 199 MAP | 
; 407 498 LSTORAGE : REF VECTOR CN_OF_VALUES + 2); ! Local name for storage : 
: 409 500 BIND 3 | 
; 410 501 PAGEFAULTS = TSTORA ‘ (0), ; f 
: 611 20¢ CPUTIMX = TSTORA "1, ; 
3 ie 203 BUFIO = TSTORAGE = | 
3 61 5 DIRIO = TSTORAGE es | 
> 414 505 ELAPSED_TIME = TSTORAGE [4]; ; 
Fipe a Be a 
3 <i? 208 . j_Sectore the FAO control strings and Lengths. 
: 419 510 
; 420 ba13 BIND FAO STRING 0. = UPLIT BYTE ( 
+ 421 051g PU: 'UL:!2Z2L:!2ZL.!2Z2L BUFIO: !'UL DIRIO: !UL FAULTS: 'UL '); 
; 6 : L 051 LITERAL FAO LENGTH. 0, = XCHARCOUNT ( 
ey: 514 AP RT CPU: UL: {22L:!27L.!22L BUFIO: !UL DIRIO: !UL FAULTS: !UL "); 
+ 426 515 BIND FAO STRING i = UPLIT BYTE ¢ ELAPSED TIME = !%T'); 
: 425 0316 LIT ERAL FAQ LENGTH_1 = XCHARCOUNT (" ELAPSED TIME = !%T"); 
RS 6 051 BIND FAO_STRING 2 = UPLIT BYTE (' CPU TIME = eet azL: t22L; '22L") 
.té 0518 LITER at wath LENGTH_2 = XCHARCOUNT (* CPU TIME = !UL:!22L: ree. r27b"); 
+ 428 0519 BIND FAO_STRING 3 = UPLIT BYTE (' BUFFERED 1/0 COUNT = ! 
+ 429 520 LITERAL FAO_LERGTH_3 = ZCHARCOUNT (' BUFFERED 1/0 COUNT : tie) 
; 6 0521 BIND FAO_STRING 4 ="UPLIT BYTE (' DIRECT 1/0 COUNT = !UL"); 
: 631 05 3 LITERAL FAO. LENGTH. = XCHARCOUNT (* DIRECT 1/0 COUNT = !UL"); 
; 432 09 BIND FAO. STRING. 5 = UPLIT BYTE (' PAGE FAULT COUNT = ! 
3 rt} 33 : LITERAL FAO_ LENGTH. 5 = XCHARCOUNT (' PAGE FAULT COUNT = !UL"); 
3 t3¢ 0526 '¢ 
3 <3? 32 4 Set up FAO string descriptor 
: 4 529 
: 439 530 FAO_DESC C fos SC$B_DTYPE) = DSCS$K_DTYPE_T; 
Py 2 = 

440 3 : FAODESC CDSC$B~CLASSJ = DSCSK~CLASS—S: 

5 6 5 '+ 
3 ret ; : : Set up out_string descriptor 
: 445 5 OUT_DESC (BSC$w_ LENGTH] o 100; 
> 66 5 QUT“DESC CDSC$B-D ped = K_DTYPE_T; 
; $67 3 4 OUT~DESC tt BTASS = KICLASS"S: 
: 449 340 If (NULLPARAMETER (1)) ! handle’ not specified? 
3 «6451 26 LSTORAGE = STORAGE ! Use OWN storage 
+ 452 054 SE 
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$ : ; + LSTORAGE = ..HANDLE; ! Use handle 

: 455 4 

: 2 $ ‘ IF (.LSTORAGE CO] NEQU ZASCII'TIMR') THEN RETURN (LIBS_INVARG); ! Invalid storage block 
; : : 3 STATUS = LIBSSGETJPI] (TSTORAGE); ! Get values 

; 460 1 IF ( NOT .STATUS) THEN RETURN (.STATUS); 

: 461 ¢ 

; re | 2 '¢ 

3 ret : Compute values elapsed since call to LIBSINIT_TIMER 

; 465 2 § PAGEFAULTS = .PAGEFAULTS = .LSTORA ; C1); 

; re ¢ 22 CPU_HOURS =, TIMX = .LSTORAGE (2); 

; 46 5 8 BUFTO = .BUFIO = .LSTORAGE (3); 

; 468 bee DIRIO = .DIRIO - scat H 

; 469 560 SUBM (2, LSTORAG J, ELAPSED_TIME, ELAPSED_TIME); 

; 470 0561 CPU_HOURS + 4 = 0; T Clear high order part of CPU time 

3 471 b26¢ EDIV (REF (100), CPU_HOURS, CPU_HOURS, CPU_MILLS); 

: 47 056 EDIV (ZREF (60), CPU_ROURS, CPU_ROURS, CPU_SECONDS); 

: $f? Beee ae EDIV (ZREF (60), CPU_HOURS, CPU_HOURS, CPU_MINUTES); 

; 475 9208 : Create out_string 

3 «47 056 te 

; 47 0568 OUT_DESC CDSCSA_POINTER] = OUT_STRING; 

: 478 0569 '¢ 

; 479 0570 ‘ Now ‘‘output’’ the result, depending on the value of CODE. 

oP Bn ge 

; rt 0378 IF (NULLPARAMETER (2)) THEN TEMPCODE = 0 ELSE TEMPCODE = ..CODE; 

; 484 0575 CASE .TEMPCODE FROM 0 TO N_OF_VALUES OF 

; 485 p28 SET 

: 486 057 

; 487 b278 C0] : ! Default case, all five values 

; 488 579 N 

; 489 0580 DESC Haba = FAO_STRING_O; 

; 490 0581 FAO_DESC COSCSW-LENGTH) = FAO CENGTH_O; 

3; 491 e304 STATUS = SYSSFAD (FAO DESC, OOT_DESC COSC$W_LENGTHI, OUT_DESC, ELAPSED_TIME, .CPU_HOURS, 
; 49 058 .CPU_MINUTES, .CPO_SECONDS,~.CPU_MILLS,~.BUFIO, .DIRTO, .PAGEFAULTS); 
; 49 0584 END; 

3; 494 0585 ; 

; «4495 288 C1) : ! Elapsed time only 

H $38 23 BEGIN 

; 49 588 FAO_DESC Postse.Polmtet? = FAO_STRING_1; 

; 498 £434 FAO-DESC CDSCS$W-LENGTH] = FAO CENGTH_T; 

3; 499 590 STATUS = SYSSFAD (FAO_DESC, OOT_DESC COSC$W_LENGTH), OUT_DESC, ELAPSED_TIME); 
3 200 B29) END; 

3; sO 236 : 

3 206 059 (2) : ! CPU time only 

; 0594 BEGIN 

; 504 595 FAO_DESC PoSCSA_ POINTER = FAO_STRING 2; 

: 4 238 FAO DESC COSC$W-LENGTH) = FAO FENG TH 6 

3 5) 59 STATUS = SYSSFAO (FAO DESC, OOT_DESC”COSC$W_LENGTH], OUT_DESC, .CPU_HOURS, .CPU_MINUTES, 
: we 598 -CPU_SECONDS, .CPO_MILLS); 

: 508 599 END; 

; 509 600 
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: 510 9} (3) : ! Buffered 1/0 count only 

: 11 ¢ BEGIN 

3 1g 6 FAO_DESC pos tss POINTER. = FAO_STRING 3; 

. a 4 FAO-DESC CDOSCSW-LENGTH] = FAO FENGTH Bi 

: 12 £06 cow = SYSSFAO (FAO_DESC, OOT_DESC 5SC$W_LENGTH, OUT_DESC, .BUFIO); 
: 54 , 

3 i$ O8 {4] : ! Direct 1/0 count only 

3 18 60 BEGIN 

; 519 10 FAO_DESC FDSCSA_POINTER] = FAO_STRING 4; 

3 0 11 FAO DESC CDSC$W-LENGTH) = FAO CENGTH_Z; 

: 1 ig STATUS = SYSSFAO (FAO_DESC, OOT_DESC”COSC$W_LENGTH], OUT_DESC, .DIRIO); 
: 358 Obie _ 

: 4 Bet? C5] : ! Page faults only 

; 5 16 BEGIN 

3 § 61 FAO_DESC CDSCSA_POINTER) = FAO_STRING_5; 

3 $18 FAO-DESC CDOSC$W-LENGTH) = FAO CENGTH_5; 

; 8 61 STATUS = SYSSFAO (FAO_DESC, OOT_DESC”COSC$W_LENGTH), OUT_DESC, .PAGEFAULTS); 
: é , » END; 

: 531 2 COUTRANGE) : 

; 3 STATUS = LIBS_INVARG; 

; 4 TES; 

: 232 § IF ( NOT .STATUS) THEN RETURN (.STATUS); 

: 337 8 IF (NULLPARAMETER (3)) ! “action' not given? 

: §39 0 STATUS = LIBSPUT_OUTPUT (OUT_DESC) 

3 re H LSE 

; 246 38 od (NULLPARAMETER (4)) ! “userarg’’ not given? 

: ae¢ 33 ns STATUS = (.ACTION) (OUT_DESC; ! Call “‘action’’ without ‘‘userarg’’ 

: 246 4 STATUS = (.ACTION) (OUT_DESC, .USERARG); ! Call ‘action’ with “userarg’’ 
; He §e35 RETURN (.STATUS); ' Exit 

; 549 0640 1 END; ! End of routine LIBSSHOW_TIMER 


0 go 54 25 ¢ 0 3A 44 45 53 8 41 of 45 2 QO9E P.AAA: .ASCII] \ ELAPSED: !2T CPU: !UL:!2Z2L:!22L.!22L \ ; 

TERE TREE CHEE BE Be : 

2g 49 44 $9 20 4¢ 2 $1 20 SA 4F iS 46 55 4 0 ? eASCIIT \BUFIO: !UL DIRIO: !UL FAULTS: !UL \ ; 
54 4C 41 46 20 20 4C€ 55 ¢ 3! 1 4F +4 ite : 

30 20 45 40 49 54 20 44 45 8 $6 rH f i p a0r9 P.AAB: .ASCII \ ELAPSED TIME = !2T\ ; 
“ 23 $3 31 30 70 3 $8 $9 ; 70 33 8 33 ofp P.AAC: .ASCII \ CPU TIME = !UL:!2Z2L:!22L.!2ZL\ : 
435 20 4F 2F i ¢ $ is 3 33 29 4 2 og <0 8 P.AAD: ASCII \ BUFFERED 1/0 COUNT = !UL\ 
55 4F 43 20 4F 2F 49 $0 4 43 4 2 05 44 ¢o 134 P.AAE: .ASCII \ DIRECT 1/0 COUNT = !UL\ ; 
t 39 20 3D 20 54 4E 143 : 
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| 
| 


wo ~m ooo Nn WR Co — OFOCO —wrMsomMm nw 
af ~ Mmm—zr Tr wv TY MWWMMMNO OOOO Or Lad 
~ Lal mnwn wow ww Ww Ww MWAH Mm w 
» So Cooo o oo o Oo SoOoOOoOoOOoO COOCOCOO oO 
ao ete e*e*e PSPSPS TS TS TS FTS HSS HSS HS HS HSS HS SS HS FS SS ESS SS SES SES SES FS FCS SSSR FSCS SCE STS SCR SCR SCE SESE FESS TS 
eo 
a 
mw 
“Mow 
az 
oO +O2>3 
a ve 
— we 
| -_- w n= 
*. « ” 6 8 
ne . < asa> 
wre w > (=T.a.s 
~@ « o ww 
| aan . = . 
oe ~» t ww Wess 
mw = = > zz aeMwm 
wz 4 . a —— 32a 
>~— SD NN oO Wu -—- ODD 
-_- -- L: 4 w - ‘t+ Toot. 
~No@ ~ = e aa ct+ 
me J z 2x ww > t & 
‘ws > — <xz<zooMwm ores 
nn @e [7 ) ~ woo WOGw 
av z2 ” w w wo i a. eo 4 w2wva 
-a<& DD Oo Na oOo woo OD3—I J ° u w 
-—m Oo i * 4 + <= <«m _ <a@Moww 4 + + we 
@- ww Ls 4 vor ec een a aw Zuwwna a 
—) ws "> o OF = ees s Deco oO. 
-—- Zo awo —- - -_ Ss AA ODD vo 
-a i HZCMMQ "ny We w aAnWwwwTrrOO «+ az 
'@m@ oO -<co ts + ton OF wwWwoOUVUO?+ FI = 
<— <« <qmvrawu. co Piolo) uw awn OOdC<4<aau> 1! & ws 
<u &™ <«<<<a<a<a<a 32 aw . wo WA <«<aqecaacaaca a>D=wT w emweintenet 
Su <q<<a<aaa Oo-0Oauc0 w wet OoO@ + fg£eo0o00c0osviaitace a a esse 88 
ee he eM BD x= «om w oOo 4c S&S <= O0rFFFFO VUrF So SOPAAAASA 
“o aaaaaa YNRAun~ DH -~ £«£ a0 &¢& 2d &—-YNNWYNT «+ ns eR VY WLOAOOOOoO 
< ADMDOO-— Ae Ze oOo F-§ MWY Ors RFR Aa Aaatititeits 
a @Q-uwrra <t oO aw -s — << Www DOOOrF A «6 fF EF OFMHHAGHOA 
om SI LAY AE OITAIGVO Nee ~yVOOTA O00 DI H~ RHWRHOVWO RK WTINWO 
mm = oHRY 1 BRY~RKINYMBC~TE KRW LOK UNV RR BO~OOK + OBR Ree er 
oo 
rm oe 2 
7-7 vuunnnnu a 2° 2 curRncucucy 2 
-~m YY onrnnm~Tw a | BymIOiIiI8d awaits = >><ao 
o- @ee0ee0ess 2>>>> >> CF wr>ar>radc>-w a 
< YVvuUIIUNNU WwWOoOdOddKOMWYZOCcoOoZzwowDd 
wv ° 222222 "FETE e-Or-OTOZY-OZoa www 
ca A Oe ne ed ed 
oon ecacaeca 
5 ee el ee eee 
i! = MNMWMMWMW 
aa <« eeee0gs8s 
ooo « ooo0o0°o 4 ee eo e © 
mm <aqaaaac<e Fr AA od oP F AAPA 
te eee - wre w w oo é~ 


” > +a 
7 JIU Owe swe 
aor SSSSS2e-—ca5 ANK—weo>nmo 
<ow> by Pertrrtrrtert tet tt Pat +” Poker 
YOENUMNNNNKWOW —-OMvr@OEw - 


oo 
~~ cor ww <« <x 


LOWWOOKWMNANWe ORK MOT & MOT OUMNUNNO 7 OO OW umnvuys-Ou 


ey SB BSS 6 MOI BOLE OS TO OH OU 
o 
6BOWL&OMVYORTOUNTO WK OO CUIKININININ Wk BOWOMNOT RK I ORO 
oy DOVYODODOOIOwomwoom com tae ent thneieeeet 
— oo 
-O oouw+y Tr oOo ww vv ToOvovreawrsy co @o co 
wr oowow oo ©& ~ CooOer-- ON” o o Oo 
oourcO So So 
oouwoeo So oS 
~a oo w So i=) 
wry oo oO So So 
oo - o [=] 
——- oo o oOo o 
wm WOMwww Nu NE CO &—- WOOROSGO wwwwty -oor 
MWnwn << wiwmoao w eo daeedeaeaeact Owowodctco Word 
oe oo 
our > 
ov w t=) WvVOwTDw Oo 
~O w oS ~ We ee & ~ 
own oa oS 
ww w So 
a 
w 
ww ™N 
ww wn 
w wu we 
nn ve) ooo ow 
nw i=] 
o 
SP 
w 
w 
nw 
Oo 
~N roe o 
maw 3 
~~” 
wT 


[4 
tad 
=z 
— he 
-—- wT 
Pm 
=y uw 
a__ wT 


10 
IBSTIMER 16-Sep-1984 01:18: AX-11 Bliss-32 V4.0-74 Page 15 
itt 132808- 1382 93:48:98 LIBRTL.SRCILIBTIMER-B3 31 9° a) 
50 56 DO 000A MOVL 6, STATUS : 0623 F 
6 11 0008 BRB : F 
78 «AE FEBS cr € 000B3 10$: | MOVAB FAO_STRING_O, FAO_DESC+4 + 0580 F 
74 AE 4C «68F 98 0008 MOVZBW #76, FAO_DESC : 0581 F 
7 AE DD 0008 PUSHL PAGEFAULTS + 0583 ; 
7E FO 3=AD 7D ¢ V FIO, =(SP) : ; 
14 BB 000C PUSHR  #°M<R3,R4> : ; 
53 DD 000C¢ PUSHL  CPU_MINUTES : ; 
18 AE DD 000C9 PUSHL CPU-HOURS + 0582 ; 
F8 AD SF OOOCC PUSHAB ELAPSED_TIME : : 
D8 AD 9F OOOCE PUSHAB OUT_DEST ; : 
D8 AD 9F Ov08 USHAB OUT~DESC ; : 
EO AD 9F 000D PUSHAB FAODESC : : 
65 0B FB 000D8 CALLS #117 SYSSFAO : : 
65 11 00008 BRB 18$ : 0575 ; 
78 «AE FEA? CF 9 S000 11$ MOVAB FAO_STRING.1, FAO_DESC+4 : 0588 ; 
74 AE 13 BO OO0E MOVW #197 FAO DESC : 0589 j 
F8 AD OF OOOE7 PUSHAB FLAPSED_TIME : 0590 : 
4A 11 OOOEA BRB 17$ : ; 
78 AE FEAB OCF 3 OOEC 12$ MOVAB FAO_STRING.2, FAO_DESC+4 + 0595 ; 
74 AE 1E B80 000F2 MOVW #30, FAO_DESC : 0596 ; 
14 BB 000F6 PUSHR #*M<R2,R%> : 0598 ; 
53 DD 000F8 PUSHL  CPU_MINUTES + 0597 ; 
OC AE DD OOOFA PUSHL CPU-HOURS ; : 
7C AE 9F OOOFD PUSHAB OUT~DESC ; F 
D8 AD OF 90199 PUSHAB OUT~DESC : F 
EO AD 9F 0010 PUSHAB FAO-DESC | ; : 
65 7 FB 00106 CALLS #7, SYS$FAO : ; 
7 1100109 13$: BRB : 0575 ; 
78 «AE FEAA CF 3 0010B 14$: | MOVAB FAO_STRING.3, FAO_DESC+4 + 0603 : 
74 AE 19 80 00111 MOVW #257 FAO_DESC > 0604 ; 
FO AD DD 00115 PUSHL  BUFIO > 0605 : 
1¢ 11 00118 BRB ; F 
78 «AE FEB4 CF 96 0011A 15$:  MOVAB FAQ_STRING 4, FAO_DESC+4 + 0610 ; 
74 AE 17 BO 90120 MOVW #23, FAO_DEsC¢ : 0611 3 
F4 AD DD 00124 PUSHL R : 0612 ; 
OD 11 001 7 BRB 17$ : ; 
78 AE FEBC CF 3 0129 16$: § MOVAB FAQ_STRING 5, FAO_DESC+4 > 0617 ; 
74 AE 17 BO 0012F MOVW #23, FAO DESC > 0618 : 
7C «AE DD 00133 PUSHL EFAULTS > 0619 : 
70 AE 9F 00136 17$:  PUSHAB _DESC : ; 
74 AE 9F 00139 PUSHAB OUT~DESC ; ; 
EO AD 9F 0013¢ PUSHAB FAO~DESC : | 3 
$5 94 FB 91 F CALLS #4, SYS$SFAO : ; 
1 0 E Ihe 18$: BLBC STATUS, 23$ > 0626 : 
03 6C 91 0014 CMPBs«C AP), #3 : 0628 : 
0S 1F 00148 BLSSU $ : : 
Oc AC 05 O14A TSTL  12¢AP) : : 
0B 12 00140 BNEG 0$ : : 
6C AE OF OO14F 198 PUSHAB OUT_DESC + 0630 3 
000000006 00 01 Fe 0138 CALLS #1, “LIBSPUT_OUTPUT : : 
C gf 15h 208: CMPB (AP), #4 > 0633 ; 
5 1F 00150 BLSSU @1s : : 
A D3 15F TL (AP) : 3 
08 1 162 BNEG 22$ : : 
AE 9F 00164 21$: | PUSHAB OUT DESC > 0635 3 
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IBSTIMER 16-Sep-1984 01:18: AX-11 Bliss-32 V4.0-74 Page 17 

erat 12-80-1382 93:38:49 CYBRTL SRE SLIBTIMER. 03951 ~ (5) 

; 3 43 1 GLOBAL ROUTINE LIBSSTAT_TIMER ( 7) 
; 643 1 CODE ; | 
; 554 644 1 VALUE i . | 
; 555 0645 1 HANDLE i ; } 
; $ a8 1 = a || 
; 647 1 | 
; 8 668 1 '44 | 
; 22 e4 ! : FUNCTIONAL DESCRIPTION: : ; 
> 561 $68) & LIBSSTAT_TIMER returns to its caller one of five available ae | 
A 66 $026 7% statistics. Unlike LIBSSHOW_TIMER which formats the values : | 
; Bee 1} for output, LIBSSTAT_TIMER returns the value to a location - | 
; 26 634 i specified as a parameter. i 
; 566 0636 1} Only one of the five statistics can be returned by one call ; | 
s Jer 0657 1! to LIBSSTAT_TIMER. ‘‘code’’ must be one of the five values | 
; ses bees ; described for LIBSSHOW_TIMER. A ‘'code’’ of zero is invalid. : 
:; 570 0660 1! It is important to note that elapsed time (LIBSK_TMRELP) is a | 
; 571 0661 1! returned in the system quadword format. Therefore the receiving > 1 
; He b66¢ : area should be 8 bytes long. ALL other values are longwords. : 
3; 574 0664 1 ! CALLING SEQUENCE: * 
s 379 0665 1! Be | 
s $f 0666 1! status.wlc.v = LIBSSTAT_TIMER (code.rl, value.wx C, handle.rl]) | 
s or7 0667 1! ee | 
; 578 0668 1! -. | 
: 579 0669 1 | FORMAL PARAMETERS: z | 
; 580 0670 1! | 
; 581 0671 1! code - Specifies which statistic is to be returned. Allowed ) 
; obe 0672 1! values are: | 
; 58 0675 1! LIBSK_TMRELP = 1 = Elapsed time - system quadword format : 

; 584 0674 1! LIBSK_TMRCPU = ¢ = CPU time - .01 second units a | 
; 585 0675 1! LIBSK_TMRBUF = 3 = Buffered 1/0 72 
; 586 0676 1! LIBSK_TMRDIR = 4 = Direct 1/0 Ze | 
: 587 0677 1! LIBSK_TMRFLT = 5 = Page faults =.) 
>; 588 0678 1! Note that if is invalid to omit ‘‘code'’: or to give | 
; 589 0679 1! a ‘‘code’’ of zero. ; 

; 590 0680 1! ; | 
; 591 0681 1! value = The location to store the result. All values are s 
3 236 0682 1! songuere integers except elapsed time, which is a 3 

; 0685 1! uadword. See VAX/VMS System Services Reference Manual | 
: aoe pone : : or more details on the system quadword time format. s | 
: 296 686 1! handle = (Optional) If specified, it must be the value returned a | 
s oer 0687 1! by a previous call to LIBSINIT_TIMER. Otherwise, OWN a | 
; 598 0688 1! storage will be used. - | 
; 599 0689 1! 3 
; 600 690 1! | 
; rt 4 ! IMPLICIT INPUTS: | @ 
3 $08 695 1! It is assumed that LIBSINIT_TIMER has previously been called and z. | 
; 604 694 1! that the ‘handle’ argument fo LIBSINIT_TIMER is the same as in ; 

; 605 695 1! the call to LIBSSTAT_TIMER. ; 

3 O06 696 1! : 

; 60 697 1 ! IMPLICIT OUTPUTS: : 

; 608 698 1! 3 
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SS$_NORMAL - Successful completion 
LIBS_INVARG - Invalid argument. Either ‘'code’’ or ‘‘handle’’ 
: is invalid. 
i SIDE EFFECTS: 
i NONE 
BEGIN 
BUILTIN 
NULLPARAMETER; 
LOCAL 
STATUS ' Returned status condition 
LSTORAGE, ! Will contain address of storage block 
TSTORAGE : VECTOR CN_OF_VALUES + 1], ! Gets current times/counts 
CPU_HOURS; ! Elapsed CPU time 
P 
LSTORAGE : REF VECTOR CN_OF_VALUES + 2]; ! Local name for storage 
IND 
PAGEFAULTS = TSTORAGE [0], 
CPUTIMX = TSTORAGE (1), 
BUFIO = TSTORAGE ° 
DIRIO = TSTORAGE ° 
ELAPSED_TIME = TSTORAGE (4); 
y (HULLPARARETER (3)) ! If “handle’’ omitted 
ELS LSTORAGE = STORAGE ! Use OWN storage 
LSTORAGE = ..HANDLE; ! Use handle 
IF (.LSTORAGE CO) NEQU ZASCII'TIMR') THEN RETURN (LIBS_INVARG); 
STATUS = LIBSSGETJPI (TSTORAGE); ! Get values 


IF ( NOT .STATUS) THEN RETURN (.STATUS); 


Compute all values 


PAGEFAULTS = .PAGEFAULTS 
CPU_HOUR 


- TORAGE (1); 
S = ,CPUTIMX = .LSTORAGE (2); 
ORAGE 
S 


TIME, ELAPSED_TIME); 


BUFTO = .BUFIO = .LST 
DIRIO = .DIRIO - “| STORAGE 
SUBM (2, LSTO J, ELAP 


yf-Seort964 01:18:20 ARE, 


' Not a valid block 
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: Now return appropriate statistic determined by CODE 


CASE. ,CODE FROM 1 TO NLOF VALUES OF 


] 

| 
tar 
- 4 
| | 
| 
fale 
C1) : ! Elapsed time + ¢ 
BEGIN | g 4 
-VALUE = .ELAPSED_ TIME; ! quadword format ‘ ¢ 
(,VALUE) + 4 = .(ELAPSED_TIME + 4); me { 
END; ; { 
(2) : ! CPU time : 
«VALUE = .CPU_HOURS; 2 
(3) : ! Buffered 1/0 count e 4 
-VALUE = .BUFIO; ° : 
[4] : ! Direct 1/0 count ‘ ¢ 
VALUE = .DIRIO; 2 
(5) : ! Page fault count 2 4 
.VALUE = .PAGEFAULTS; . 
COUTRANGE) : | 2 
RETURN (LIBS_INVARG) ; - 
; ed 
RETURN (SS$_NORMAL) ; ' Exit - < 

END; ! End of routine LIBSSTAT_TIMER 


0004 00000 .ENTRY LIBSSTAT_TIMER, Save R2 + 0642 
se 18 (2 9002 SUBL2 #24, SP : 
ite =| ay fea 

Oc Ac 05 OO0A TSTL  12(¢AP) ; 
09 0000 BNEQ 2$ ; 
52 00000000° cf F atte 1$: HOVAB TORAGE, LSTORAGE : 0738 
52 0c BC DO ° 18 2$: MOVL § @HANDLE, LSTORAG : 0740 
52404954 &F i DI : $$: cMPL (LSTORAGE), #1380796756 : 0742 
E DD PUSHL SP > 0744 
0000v CF aA. CALLS #1, LIBSS$GETJPI ; 
Sh % ES 6 C BLBC. STATUS 135 > 0746 
6E ‘an ee. F SUBL2 4 (LSTORAGE), PAGEFAULTS : O79! 
51 04 AE 8 A2 C3 000 3 SUBL3 8(LSTORAGE), CPUTIMX, CPU_HOURS : 07 é 
08 AE ¢ Ao ¢ SUBL2  12(LSTORAGES, BUFIO : 075 
¢ AE . ae ; SUBL2 16(LSTORAGE). DIRIO ; 0794 
10 AE 14 AoC 4 SUBL - (LSTORAGE), ELAPSED_TIME : 0755 
14 AE 18 A2 D 48 SBWC 4(LSTORAGE), ELAPSED-TIME : 
04 01 04 BC CF 0004D CASEL aCODE, #1, #4 : 0760 | 


i 


; Routine Size: 


; 697 


0029 


0022 


138 bytes, 


0787 #1 


08 
08 
08 
08 


Routine Base: 


001C 


0036 


50 000000006 8F 


50 
60 


BC 


fi 
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-LIBSCODE + 0209 


9B 12:59:88 


«WORD 


at 


#LIBS_INVARG, RO 


AX-11 B 
CTeRTLS 


4.0-74 


32 
SREILISTIMER 039; 1 


VALUE, RO 
LAPSED. TIME, (RO) 
Pu. HOURS, @VALUE 


BUF IO, 
11$ 
DIRIO, 
11$ 


#1 


@VALUE 
@VALUE 


nat tt @VALUE 
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f IST IRER 16-Sep-1984 03:48:49 AX-11 Bliss-32 Vase 238 
-011 14-Sep-1984 12:39: LIBRTL.SRCIJLIBTIMER.B32;1 


GLOBAL ROUTINE LIBSFREE_TIMER ( H 
HANDLE ; 
= 


++ 
FUNCTIONAL DESCRIPTION: 
Frees the storage allocated by LIBSINIT_TIMER. If the block 


referred to by “handle’’ was not allocated there, an error is 
returned. 


OOOCCCCCCOCOO 
SA 
ra 


ono 
Coo w 


UNV SOBNONR UNA OSRIRAR AI OD 


i? a 


; 1 

: 1 

; 1 

: 1 

; 1} 

§ 1! 

: 1! 

3 1! 

; 1! 

3 sf 

$ 1! 

3 1 34 : CALLING SEQUENCE: 

: 71 0801 1 | status.wlc.v = LIBSFREE_TIMER (handle.ml) 

3; 7i p80e 1! 

; (671 0803 1! 

: ; Bape : FORMAL PARAMETERS: 

: 1 Bane 1! handle = This must be the same value as returned by a previous 
3; 71 0807 1! call to LIBSINIT_TIMER. On a successful return, ‘‘handle"’ 
3 1 0808 1! is set to zero. 

3; fe 0809 1! 

3 : Baio | } IMPLICIT INPUTS: 

3 pets 1! It is assumed that ‘‘handle’’ is the same value returned by a 
; i ¢ HF : } previous call to LIBSINIT_TIMER. 

; 726 0815 1 ! IMPLICIT OUTPUTS: 

; 727 0816 1! 

3: 728 0817 1! NONE 

3 a4 0818 1! 

; 7350 0819 1 ! ROUTINE VALUE: 

g 42 O83 : COMPLETION CODES: 

a: i 08 ¢ : 2 SS$_NORMAL - Successful completion 

. oF 08 1! LIBS_INVARG - Invalid argument. ‘‘handle’’ is invalid. 
3 736 4 : : LIBS-BADBLOADR = ‘handle’ is invalid. 

. FF 0826 1 ! SIDE EFFECTS: 

: ; 3 ‘ : The st LL d by LIBSINIT_TIMER is freed 

3 e storage allocate is freed. 

: 740 0899 1 i ° . : 

: el 08 , : !eo 

: 7% 0832 BEGIN 

3 7446 ti 

3; 745 0834 BUILTIN 

3 7 835 NULLPARAMETER; 

; 7% : § 

3; 748 LOCAL , 
3; 749 0838 STATUS; ! Returned condition code 
; 750 839 

3; «6751 40 '¢ 

: Pe 41 ‘ Test to make sure block was 

, ; ! initialized by LIBSINIT_TIMER. 

; 754 oat le 

; 755 844 
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IBSTIMER 15-50 Sep-19 AX-11 Bliss-32_ V4.0-74 
ett 730p-1$8e 3: 3: 98 LIBRTL. SReSL ier imeR.039;1 
IF ((NULLPARAMETER (1)) OR (...HANDLE NEQU ZASCII'TIMR')) 

RETURN (LIBS_INVARG) ; 


'¢ 
: Now, free the storage 


te 
STATUS = LIBSFREE_VM (ZREF (BLOCKSIZE), .HANDLE); 
IF ( NOT .STATUS) THEN RETURN (.STATUS); 
HANDLE = 0; ' Reset nongi 
RETURN (. STATUS); i Must be SS$ 
END; ' End of Rn Bay TIBSFREE TIMER 


DNAMNEW"OOONOuW 


—, 


SeGe Se Ge Se ee Se Sete Ge Ge Geese 
Ans 
AAO 
— 
OOOO OCOCOCOOOOCOOOoOO 
C0000 000000 CD CDC CO CD CD ODCD 
PPP DPDPIDIUIUIUN S BP I 


0000 00000 .ENTRY LIBSFREE_TIMER, Save nothing 
5E 04 C 99008 SUBL2 #4, SP 
6c 95 0000 TSTB. (AP) 
12 13 00007 BEQL «=s«o1$ 
04 aC 05 00009 TSTL  4(AP) 
0D 13 0000C BEQL «=so1$ 
50 06 BC dd 000g MOVL § @HANDLE, RO 
52404954 8F 60 01 0001 CMPL (RO), #1380796756 
08 13 00019 BEQL 
50 000000006 8F DO 0001B 1$ MOVL § #LIBS_INVARG, RO 
04 9002 RET 
04 AC DD 00023 2$ PUSHL HANDLE 
04 AE 1€ D0 00026 MOVL #28, 4(SP) 
04 AE 9F O002A PUSHAB 
000000006 00 08 FB 0002D CALLS #2. LIBSFREE_VM 
03 50 €9 900 4 BLBC stA ATUS 3$ 
04 BC 04 00037 CLRL NDE 
04 OO03A 3$ RET 


; Routine Size: 59 bytes, Routine Base: _LIBSCODE + 0363 


; 770 0859 1 
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R sruner HbrSep-1984 01:18:20 YAREIT BLiggo32 v4. 0-763 | Page 33 
! 


-Sep- e 

H ae 60 1 ROUTINE LIBSSGETJPI ( : H 
Bee 61 1 VALUES ! F 

: 774 86 1 d= 3 
s 775 65 1 sf 
; ure 4 1 !44 - 4 
: 65] | FUNCTIONAL DESCRIPTION: ei 
; iS e9 1} Calls the system services SYSSGETJPI and SYSSGETTIM and places the times ; : 
: 780 463 1} and counts in the block pointed to by VALUES. The particular > 
; (78) ey 1! times and counts obtained are determined by the codes placed > 
3 ree 870 1! in JPIPARAMS, a block of OWN storage. This block is never > 
3; £ 14) 1} altered; instead it is copied to the stack and changed there, | 
; f : OB7¢ i thus this routine is reentrant. i 
3 ree Bare 1 ! FORMAL PARAMETERS: : : 
3; 875 1! ; 

; 788 0876 1! VALUES.ml.ra = Points to a block of N_OF_VALUES+1 Longwords a 
: 789 0877 1! into which are placed the times and counts. P| 
; 790 0878 1! The current time of day is placed in the a) 
3 ro 0879 1! Last two longwords of the block. 
3 r3¢ 0880 1! = | 
; 0881 1 ! IMPLICIT INPUTS: > 
; 794 pae¢ +! - 
; 795 08835 1! NONE 3 

; 796 0884 1! ; 4 
; 797 0885 1 ! IMPLICIT OUTPUTS: 3 
; 798 base 1! ar 
; 799 887 1! NONE m3 
; 800 0888 1! lb 
; 801 0889 1 ! ROUTINE VALUE: 3 

; B06 0890 1 ! COMPLETION CODES: 3 4 
3 HH 0891 1! s 4 
3 ape +94 : SS$_NORMAL - Successful completion : : 
3 +5] rte ' Any other completion code is an error returned by SYSSGETJPI or SYSSGETTIM. : : 
; 08 0896 1 ! SIDE EFFECTS: 3 4 
; 809 0897 1! - 
; 810 0898 1! NONE F 

3 «BT 0899 1! s 4 
3 i 8444 1 !-- 3 4 
; 81 901 1 =. ! 
: 814 344 BEGIN : 
3s 819 638 : 
; 816 904 P 3 

3 % 0305 VALUES : REF VECTOR CN_OF_VALUES + 1); a 
; 19 309 LOCAL 4 
3 0 908 STATUS, ' Returned status from services 
; 1 3484 N, ' Event flag number ; a 
3 § Bit JPILIST : VECTOR CLISTSIZE); ! Temporary GETJPI argument List : 
; 3 at CHSMOVE (LISTSIZE*ZUPVAL, JPIPARAMS, JPILIST); ! Move argument List to temporary : 
; 914 2 !4 > 
3 $ 915 ! Place in the temporary argument List the addresses of the storage s ! 
2 8 916 ! block locations which are to recieve the times and counts. | sf 

| 


TE gen, eR 


IBSTIMER Sep-1984 AX-11 Bliss-32 V & Page 24 
thy 12: =tep- 138 9}: 8: i LIBRTL.SRC (iat! nik. “333.4 . 3 
; te 
: 91 INCR_1 FROM 0 TO N_OF_VALUES = 2 DO 
3 ¢ 9 BEGIN 
5 9 JPILIST C((.1)*3) + 1) = VALUES €.1); 

3 ¢ 9 § END; 

: 924 2 !4 

3 , , g 3 i Allocate an event flag number 

; 839 9 

$ 40 9 4 STATUS = LIBSGET ffs 

3 1 , IF (NOT .STATUS)~ REN’ AP TiRN STATUS; 

: rk 0931 STATUS = SGETJPIW (EFN=.EFN, ITMLST=JPILIST); ! Get times and counts 

3 4 44 ; LIBSFREE_EF (EFN); 

3 5 +4 Z IF ( NOT .STATUS) THEN RETURN (.STATUS); 

: Bee 0935 STATUS = LIBSFREE_EF (EFN); 

: 848 O938 RETURN (SGETTIM (TIMADR=VALUES CN_OF VALUES - yan ! Get elapsed time 
; 849 093 END; ! End of routine LIBS$$GETJPI 


-EXTRN SYSSGETJPIW, SYSSGETTIM 
007C 00000 LIBSS$GETJPI: 
WORD 
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i 
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" Seve. R2,R3,R4, i R6 ; 0860 
gg ommnnooos op os ggyygGRUNEHGHPRE. EF | 
04 AE FCS1—sCF 4 28 0000 MOVC3 #52. JPIPARAMS, JPILIST : 0912 
50 D4 0001 CLRL + 0921 
51 50 03 C5 00015 1$ MULL3 . F 
08 AE41 04 Bad DE 0019 MOVAL ayiuvést 3, JPILIST+4(R1) : 
FI 50 2 F3 00020 AOBLEQ #3, 1, 1$ : 0919 
E Dd 00024 PUSHL SP : 0928 
000000006 00 1 FB 00026 CALLS #1, LIBSGET _EF : 
52 9 DO 0002D MOVL RO, ST Tys ; 
iE 9 000 BLBC STATUS, 2 + 0929 
E ?7C 000 CLRQ 2s =(S : 0931 
7E D4 000 CLRL = (SP) : 
10 AE 9F 000 PUSHAB JPILIST ; 
7E 7C OOO3A CLRQ = =(SP) : 
18 At DD 0 C PUSHL FN : 
000000006 0 F F CALLS #7, SYSSGETJPIW : 
5 0 D O46 OVL RO. STATUS : 
E 0D 0 4 PUSHL SP + 0932 
4 1 FB 00048 CALLS #1, LIBSFREE_EF : 
4 é E uF BLBS § STATUS, 3$ : 0933 
0 p 2$ MOVL STATUS. RO ; 
4 4 RET ; 
5 DD 3 3$ PUSHL sp > 0935 
: FB CALLS #1, LIBSFREE _EF : 
0 D A MOVL. RO. STAT ; 
7E 04 aC 10 C1 ADDL3 #16, VALUES, -(SP) : 0936 
000000006 0 01 FB 0006 CALLS 1, SYS GETTIM yo 


784 code: + 280 data bytes 


:R un flee 

3 esar Time: 00:3 
3 Lines/CPU Min: 630° 
3 tones iePanias 2ee 

3 Y Used: 145 pages 
3; Compilation Complete 


IBSTIMER 1b-5¢ Sep-1 AX-11 Bliss-32 V4.0-74 Page 25 
ett =300n 138% 9}: §: 7 YMGRTL SRESLISTIMER.033; 1 ° 5 

; Routine Size: 106 bytes, Routine Base: _LIBSCODE + 039E 
; 850 938 1 END 'End of module : 
; 851 p 33 | - ; 
; 852 940 0 ELUDOM ; 
: PSECT SUMMARY 3 
: Name Bytes Attributes ; 
> LIBSDATA 32 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON, PIC,ALIGN(2) ; 
; LIBSCODE 1032 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL. CON. PIC.ALIGN(2) : 
: Library Statistics ; 
Cara ee Se - kf. Symbols -------- Pages Processing ; 
3 File Total Loaded Percent Mapped Time : 
;  _$255$DUA28:CSYSLIBISTARLET.1 32; 1 9776 15 0 581 00:00.7 ; 
; COMMAND QUALIFIERS : 
: BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /NOTRACE/LIS=LIS$:LIBTIMER/OBJ=OBJ$:LIBTIMER MSRC$:LIBTIMER/UPDATE=(ENH$:LIBTIMER) ’ 
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